Column

Chart A

smaller_noaa %>% 
  plot_ly(x=~prcp, y = ~snow_mm, color = ~year, type = "box", colors = "viridis")
## Warning: Ignoring 69191 observations

Column

Chart B

smaller_noaa %>% 
  plot_ly(x = ~year, y = ~snow_mm, color = ~year, type = "bar")
## Warning: Ignoring 62841 observations

Chart C

smaller_noaa %>%
  plot_ly(
    x = ~year, y = ~prcp, type = "scatter", mode = "markers", alpha = 0.5)
## Warning: Ignoring 14968 observations

rmarkdown::render("plotly.Rmd", output_format = "flexdashboard::flex_dashboard")